home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 11 / AMUG BBS in a Box Volume XI (April 1994) (MacWizards).iso / Files / Tele / Internet / FTPd 2.20.sit / FTPd 2.20 / !Folder Info / !Folder Info.rsrc < prev    next >
Encoding:
Text File  |  1992-07-09  |  368 b   |  7 lines  |  [TEXT/ttxt]
  1.     2 RTEXTttxtcedure DoRenameFrom;
  2.             var
  3.                  !Folder InfoPartSITxPartSITx©çGr            else
  4.                 oe := RETR(info.sesr, line, false, true, reply);
  5.             if (oe = noErr) & (reply.vp^.privs <> P_Full) then
  6.                 oe := -1;
  7.     ˇˇ